;;;; Created on 2007-03-24 22:14:29


;;; FILEIO

;; reads a parenthesis wrapped space delimited file into a two-dimensional list
(defun read-lists (file)
  (let ((lst nil))
    (with-open-file (str file :direction :input)
      (do ((line (read str nil 'eof)
                 (read str nil 'eof)))
        ((eql line 'eof))
        (setf lst (cons line lst))))
    lst))

